/* OUTPUT TO PRINTER PAGE-SIZE 66. */

/* OUTPUT TO c:\qadguicli\doc\pd_nobom.txt. */
FOR EACH ptp_det WHERE ptp_bom_code <> "" AND ptp_site = "500" NO-LOCK,
    EACH pt_mstr WHERE pt_part = ptp_part NO-LOCK:

    FIND FIRST ps_mstr WHERE ps_par = ptp_part AND ps_ps_code = "A" NO-LOCK NO-ERROR.
    IF AVAILABLE ps_mstr THEN
       DISP ptp_part ptp_bom_code ptp_pm_code pt_part_type ps_ps_code ptp_site pt_added pt_desc1 WITH STREAM-IO WITH WIDTH 200 .
END.
